home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643C.ZIP / DEMO.PRG < prev    next >
Text File  |  1986-11-18  |  640b  |  24 lines
  1. * demo.prg
  2. * driver for PAGES2.PRG
  3. * AS 11/17/86
  4.  
  5. set status off
  6. set talk off
  7. close procedure    && really, we should push it, then pop it when done
  8. set procedure to pages
  9.  
  10. if .not. file("line.dbf")
  11.    @3,0 say "PAGES needs LINE.DBF:  Line: C: 79"
  12.    return
  13. endif
  14. if .not. file("curson.bin") .or. .not. file("cursoff.bin")
  15.    @3,0 say "PAGES needs CURSON.BIN and CURSOFF.BIN to run"
  16.    return
  17. endif
  18.  
  19. @0,0 say "PAGES demo: A. Schulman, Nov. 1986"
  20. do pages with 'pages.dat', 1, 19, 3, 1, 2
  21.  
  22. @23,0 say "Demo completed: You might need to reopen your old procedure file"
  23. *** won't come back here is they did file switch!
  24.